COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	%\magnification=\magstephalf
C00008 ENDMK
C⊗;
%\magnification=\magstephalf
\magnification=\magstep1
\font\smallheadfont=amr8 
\font\largeheadfont=amdunh10 
%\font\ninerm=amr9 
\font\seal=stan70
\font\Dunh=amdunh10
\def\today{\ifcase\month\or
  January\or February\or March\or April\or May\or June\or
  July\or August\or September\or October\or November\or December\fi
  \space\number\day, \number\year}

\raggedbottom
\interlinepenalty=1000
\hsize=6.25truein
%\voffset=24pt
%\advance\vsize by-\voffset
\parindent=0pt
\parskip=0pt
\nopagenumbers
\footline={\ifnum\pageno>1
  \smallheadfont \addressee\hfil\today\qquad \folio
  \else\hfil\fi}

\def\beginlinemode{\endmode
  \begingroup\obeylines\def\endmode{\par\endgroup}}
\def\beginparmode{\endmode
  \begingroup\parskip=\medskipamount \def\endmode{\par\endgroup}}
\let\endmode=\par
\def\endletter{\endmode\vfill\supereject}

\newdimen\longindentation \longindentation=4truein
\newbox\theaddress
\def\address{\beginlinemode\getaddress}
{\obeylines\gdef\getaddress #1
  #2
  {#1\gdef\addressee{#2}%
    \global\setbox\theaddress=\vbox\bgroup\raggedright%
     \hsize=3.25truein\everypar{\hangindent2em}#2
%    \hsize=\longindentation \everypar{\hangindent2em}#2
    \def\endmode{\egroup\endgroup \copy\theaddress \bigskip}}}

\def\body{\beginparmode}
\def\annotations{\beginlinemode\def\par{\endgraf\nobreak}\obeylines\par}
\def\ps{\beginparmode\nobreak
  \interlinepenalty5000\def\par{\endgraf\penalty5000}}

\def\up#1{\leavevmode \raise.16ex\hbox{#1}}

\def\personal{\pageno=1
  \def\sendingaddress{Arthur L. Samuel\par
    The Sequoias\par
    501 Portola Road, box 8214\par
    Portola Valley, CA 94025\par
    \up[415\up]\thinspace 424-4233\par}
  \def\returnaddress{Arthur L. Samuel\par
    The Sequoias\par
    501 Portola Road, box 8214\par
    Portola Valley, CA 94025 USA}
\centerline{Arthur L. Samuel}
\centerline{The Sequoias}
\centerline{501 Portola Rd. box 8214}
\centerline{Portola Valley, CA 94025}
    \bigskip\bigskip\hfill\today\bigskip}

\def\stanford{\pageno=1
  \def\returnaddress{Arthur L.~Samuel\par
    Computer Science Department\par
    Stanford University\par
    Stanford CA 94305 USA}
{\null\vskip-10pt
\vbox{\hskip-50pt$\vcenter{\rlap{\seal T}}$\hskip48pt}
\vbox{\null\vskip-66pt\Dunh\parskip=0pt\baselineskip=18pt\obeylines\obeyspaces
   Computer Science Department\par
   Stanford University\par
   Stanford, California 94305}}
    \bigskip\bigskip\hfill\today\bigskip}

%\def\makelabel{\endletter\hbox{\vrule
%    \vbox{\hrule \kern6truept
%      \hbox{\kern6truept\vbox to 3truein{\hsize=\longindentation
%          \smallheadfont\baselineskip9truept\returnaddress
%          \vfill\moveright 3truein\copy\theaddress\vfill}%
%        \kern6truept}\kern6truept\hrule}\vrule}
%  \vfill\eject}

\def\makelabel{\endletter\hbox%
{\vrule\vbox{\hrule \kern6truept
      \hbox{\kern6truept\vbox{\hsize=2truein
    \smallheadfont\baselineskip10truept\returnaddress}}\smallskip\hrule}\vrule}
\medskip
\hbox{\vrule\vbox{\hrule \kern6truept
      \hbox{\kern6truept\vbox{\hsize=3truein
     \copy\theaddress}}\smallskip\hrule}\vrule}\eject}

\def\als{\beginlinemode\nobreak\bigskip
\hskip4truein Sincerely yours,
    \nobreak\bigskip\bigskip\bigskip % space for signature
\hskip4truein Arthur L. Samuel
\bigskip}
\def\fin{\makelabel\end}